home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PRUS101.ZIP
/
TSPEAKER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-07-20
|
3KB
|
77 lines
{ example programme TSPEAKER to demonstrate some sound effects provided by
the unit FSPEAKER }
(****************************************************************************)
uses
fcrt,
fkbd,
fspeaker;
Procedure pause (s : string);
begin
If not SoundsEnabled then exit;
writeln ('Next sound effect: ', s);
repeat until fkbd.keypressed;
if fkbd.readkey <> #27 then exit;
fspeaker.Nosound;
halt;
END;
begin
{ SoundsEnabled := FALSE; }
Pause ('Alarm' ); Alarm;
Pause ('Beep' ); Beep;
Pause ('Bell' ); Bell;
Pause ('Bell 2' ); Bell2;
Pause ('Bip' ); Bip;
Pause ('Boop' ); Boop;
Pause ('Bop' ); Bop;
Pause ('Buzz saw' ); BuzzSaw;
Pause ('Car' ); Car;
Pause ('Clec Clac' ); ClecClac;
Pause ('Open whistle' ); OpenWhistle;
write ('Close whistle'#13); CloseWhistle;
Pause ('Error beep' ); ErrorBeep;
Pause ('Explosion' ); Explosion;
Pause ('Explosion 2' ); Explosion2;
Pause ('Falling' ); Falling;
Pause ('Falling 2' ); Falling2;
Pause ('Fanfare' ); Fanfare;
Pause ('Flak' ); Flak;
Pause ('Gun' ); Gun;
Pause ('hi ring' ); HiRing;
Pause ('Laser' ); Laser;
Pause ('low ring' ); LoRing;
Pause ('morse code' ); MorseCode;
Pause ('MP' ); MP;
Pause ('Mystic' ); Mystic;
Pause ('Mystic 2' ); Mystic2;
Pause ('Mystic 3' ); Mystic3;
Pause ('Mystic 4' ); Mystic4;
Pause ('Mystic 5' ); Mystic5;
Pause ('Noname 1' ); Noname1;
Pause ('Noname 2' ); Noname2;
Pause ('Noname 3' ); Noname3;
Pause ('Noname 4' ); Noname4;
Pause ('Noname 5' ); Noname5;
Pause ('Nuke' ); Nuke;
Pause ('Ploing ' ); Ploing(20);
Pause ('Rain' ); Rain;
Pause ('Random sound' ); RandomSound;
Pause ('Sinus beep' ); SinusBeep;
Pause ('Starting car' ); StartingCar;
Pause ('toot toot toot' ); TootTootToot;
Pause ('Warning' ); Warning;
Pause ('Windows beep' ); WindowsBeep;
Pause ('wrong sequence' ); WrongSequence;
Pause ('Zip 1' ); Zip1;
Pause ('Zip 2' ); Zip2;
Pause ('');
{ routines with parameters: }
(*
Beam (Heigth : Word); { Makes a 'beam' sound }
Ploing (step : byte); { Makes a sawing noise. }
Zap (Key : Word); { Makes a sound like ZZZZaaap }
*)
end.